CellIsNoDataInteger Function

private function CellIsNoDataInteger(i, j, grid)

returns true if cell of grid_integer contains no data value

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: i
integer, intent(in) :: j
type(grid_integer), intent(in) :: grid

Return Value logical


Source Code

LOGICAL FUNCTION CellIsNoDataInteger &
!
(i, j, grid) 

IMPLICIT NONE

!Arguments with intent in:
INTEGER, INTENT(IN) :: i,j
TYPE (grid_integer), INTENT(IN) :: grid

!----------------------end of declarations-------------------------------------

 
 IF ( grid % mat (i,j) == grid % nodata ) THEN
    CellIsNoDataInteger = .TRUE.
 ELSE
    CellIsNoDataInteger = .FALSE.
 END IF
 
RETURN
END FUNCTION CellIsNoDataInteger